#!/usr/local/bin/perl -w
use strict;
use utf8;
use lib '../lib';

use Carp;
$SIG{__DIE__} = \&Carp::confess;

use NG::Sys::Cfg;

use NG::Sys::App qw(
NG::Sys::Loop::Cgi
NG::Sys::App::AdminReference
);

my $app = new NG::Sys::App();

$app->run;

sub on_before_loop {
	my ($app) = @_;
	$app->{cfg}{db}{two} = config("db_test");
	$app->{cfg}{db_local} = "two";
	return $app->on_before_loop;
}
